home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 1-Reference / Success Stories / Lead Information / Lead Information / card_8524.txt < prev    next >
Text File  |  1990-04-18  |  22KB  |  1,024 lines
  1. -- card: 8524 from stack: in
  2. -- bmap block id: 5957
  3. -- flags: 4000
  4. -- background id: 3704
  5. -- name: config
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   global gCardFinished
  9.   --check if this section is completed; if yes, show the check mark
  10.  
  11.   if short name of this card is "blank" then pass closeCard
  12.  
  13.   send checkCompletion to this card
  14.   if the result is empty then
  15.     set icon of bg btn ("check" & short name of this cd) to smallHollowCheck
  16.     put TRUE into gCardFinished
  17.   else
  18.     set icon of bg btn ("check" & short name of this cd) to 0
  19.     put FALSE into gCardFinished
  20.   end if
  21.   pass closeCard
  22. end closeCard
  23.  
  24. on ZapChecks
  25.   put cd fld hdware into thelist
  26.   put 1 into start
  27.   repeat with i = 1 to the number of lines in thelist
  28.     if char 1 of line i of thelist is "¬£" then put "‚Ñ¢" into char 1 of line i of thelist
  29.   end repeat
  30.   put thelist into cd fld hdware
  31.   put cd fld periph into thelist
  32.   put 1 into start
  33.   repeat with i = 1 to the number of lines in thelist
  34.     if char 1 of line i of thelist is "¬£" then put "‚Ñ¢" into char 1 of line i of thelist
  35.   end repeat
  36.   put thelist into cd fld periph
  37. end Zapchecks
  38.  
  39. on resetCard
  40.   global gwhichone
  41.   lock screen
  42.   put empty into cd fld "selectedHDware"
  43.   put empty into cd fld "selectedPeriph"
  44.   resetbtns
  45.   set the hilite of btn "1-10" to true
  46.   hide cd fld periph
  47.   hide cd fld hdware
  48.   hide bg btn bigmask
  49.   hide cd btn cancel
  50.   hide cd btn done
  51.   hide cd btn hdmask
  52.   hide cd btn "reset"
  53.   hide cd fld instruction2
  54.   hide cd fld instruction
  55.   hide cd btn 19
  56.   zapchecks
  57.   unlock screen
  58. end resetCard
  59.  
  60. on checkCompletion
  61.   global gConfig
  62.   put "not done" into done
  63.   put false into gConfig
  64.   if (cd fld "selectedhdware" is not empty) and (cd fld "selectedPeriph" is not empty) then
  65.     repeat with i = 3 to 12
  66.       if hilite of cd btn i then
  67.         put empty into done
  68.         put true into gConfig
  69.         exit repeat
  70.       end if
  71.     end repeat
  72.     put 1 into line 3 of cd fld "status" of cd "intro"
  73.   else
  74.     put 0 into line 3 of cd fld "status" of cd "intro"
  75.   end if
  76.   return done
  77. end checkCompletion
  78.  
  79.  
  80. on resetbtns
  81.   set the hilite of btn "1-10" to false
  82.   set the hilite of btn "11-50"to false
  83.   set the hilite of btn "51-100"to false
  84.   set the hilite of btn "101-300"to false
  85.   set the hilite of btn "301-500"to false
  86.   set the hilite of btn "501-1000"to false
  87.   set the hilite of btn "1001-1500"to false
  88.   set the hilite of btn "1501-2000"to false
  89.   set the hilite of btn "2001+"to false
  90.   set the hilite of btn "Don‚Äôt Know" to false
  91. end resetbtns
  92.  
  93. on HideShow
  94.   global gwhichone
  95.   lock screen
  96.   if visible of cd btn cancel then
  97.     hide bg btn bigmask
  98.     hide cd btn cancel
  99.     hide cd btn done
  100.     hide cd fld gwhichone
  101.     hide cd btn hdmask
  102.     hide cd btn "reset"
  103.     set the scroll of cd fld gwhichone to 0
  104.     if gwhichone is "hdware" then hide cd fld instruction2
  105.     else hide cd fld instruction
  106.     hide cd btn 19
  107.   else
  108.     show bg btn bigmask
  109.     show cd btn cancel
  110.     show cd btn done
  111.     show cd fld gwhichone
  112.     show cd btn hdmask
  113.     show cd btn "reset"
  114.     if gwhichone is "hdware" then
  115.       show cd fld instruction2
  116.       get offset("¬£",cd fld hdware)
  117.       if it is 0 then
  118.         show cd btn 19
  119.       else
  120.         hide cd btn 19
  121.       end if
  122.     else
  123.       show cd fld instruction
  124.       get offset("¬£",cd fld periph)
  125.       if it is 0 then show cd btn 19
  126.       else hide cd btn 19
  127.     end if
  128.   end if
  129.   unlock screen
  130. end HideShow
  131.  
  132.  
  133. on BuildIt3
  134.   global gtheconfig
  135.   go cd "config"
  136.   put empty into bg fld "input"
  137.   put empty into gtheconfig
  138.   put "‚Ä¢ Hardware" & return & cd fld "selectedhdware" & return & "‚Ä¢ Peripherals" & return after gtheconfig
  139.   put  cd fld  "selectedPeriph" & return & "‚Ä¢ Number of Macs" & return after gtheconfig
  140.   repeat with i = 3 to 12
  141.     if hilite of cd btn i then put the short name of cd btn i  after gtheconfig
  142.   end repeat
  143.   put return after gtheconfig
  144.   put gtheconfig into bg fld input
  145. end BuildIt3
  146.  
  147.  
  148.  
  149.  
  150.  
  151. -- part 12 (field)
  152. -- low flags: 03
  153. -- high flags: 2007
  154. -- rect: left=176 top=66 right=135 bottom=474
  155. -- title width / last selected line: 0
  156. -- icon id / first selected line: 0 / 0
  157. -- text alignment: 0
  158. -- font id: 3
  159. -- text size: 12
  160. -- style flags: 0
  161. -- line height: 16
  162. -- part name: selectedHDware
  163.  
  164.  
  165. -- part 34 (button)
  166. -- low flags: 00
  167. -- high flags: A004
  168. -- rect: left=286 top=40 right=65 bottom=383
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 0 / 0
  171. -- text alignment: 1
  172. -- font id: 0
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: Hardware…
  177. ----- HyperTalk script -----
  178. on mouseUp
  179.   global gwhichOne,gOld
  180.   lock screen
  181.   put "hdware" into gWhichOne
  182.   put cd fld "hdware" into gOld
  183.   hideshow
  184.   unlock screen
  185. end mouseUp
  186.  
  187.  
  188.  
  189. -- part 37 (field)
  190. -- low flags: 03
  191. -- high flags: 2007
  192. -- rect: left=175 top=164 right=234 bottom=474
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 0
  196. -- font id: 3
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: selectedPeriph
  201.  
  202.  
  203. -- part 38 (field)
  204. -- low flags: 01
  205. -- high flags: 0000
  206. -- rect: left=171 top=42 right=61 bottom=289
  207. -- title width / last selected line: 0
  208. -- icon id / first selected line: 0 / 0
  209. -- text alignment: 0
  210. -- font id: 3
  211. -- text size: 12
  212. -- style flags: 0
  213. -- line height: 16
  214. -- part name: Label1
  215.  
  216.  
  217. -- part 40 (field)
  218. -- low flags: 01
  219. -- high flags: 0000
  220. -- rect: left=171 top=138 right=157 bottom=289
  221. -- title width / last selected line: 0
  222. -- icon id / first selected line: 0 / 0
  223. -- text alignment: 0
  224. -- font id: 3
  225. -- text size: 12
  226. -- style flags: 0
  227. -- line height: 16
  228. -- part name: Label2
  229.  
  230.  
  231. -- part 42 (button)
  232. -- low flags: 00
  233. -- high flags: A004
  234. -- rect: left=286 top=138 right=163 bottom=384
  235. -- title width / last selected line: 0
  236. -- icon id / first selected line: 0 / 0
  237. -- text alignment: 1
  238. -- font id: 0
  239. -- text size: 12
  240. -- style flags: 0
  241. -- line height: 16
  242. -- part name: Peripherals…
  243. ----- HyperTalk script -----
  244. on mouseUp
  245.   global gwhichOne,gOld
  246.   lock screen
  247.   put cd fld "periph" into gOld
  248.   put "periph" into gWhichOne
  249.   hideshow
  250.   unlock screen
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 43 (field)
  256. -- low flags: 01
  257. -- high flags: 0000
  258. -- rect: left=175 top=236 right=255 bottom=475
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 0
  262. -- font id: 3
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: Label3
  267.  
  268.  
  269. -- part 44 (button)
  270. -- low flags: 00
  271. -- high flags: C006
  272. -- rect: left=171 top=252 right=271 bottom=266
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 1
  276. -- font id: 0
  277. -- text size: 12
  278. -- style flags: 0
  279. -- line height: 16
  280. -- part name: 1-10
  281. ----- HyperTalk script -----
  282. on mouseUp
  283.   if not hilite of me then
  284.     resetbtns
  285.     set hilite of me to true
  286.   end if
  287. end mouseUp
  288.  
  289.  
  290.  
  291. -- part 47 (button)
  292. -- low flags: 00
  293. -- high flags: 8006
  294. -- rect: left=171 top=270 right=289 bottom=266
  295. -- title width / last selected line: 0
  296. -- icon id / first selected line: 0 / 0
  297. -- text alignment: 1
  298. -- font id: 0
  299. -- text size: 12
  300. -- style flags: 0
  301. -- line height: 16
  302. -- part name: 11-50
  303. ----- HyperTalk script -----
  304. on mouseUp
  305.   if not hilite of me then
  306.     resetbtns
  307.     set hilite of me to true
  308.   end if
  309. end mouseUp
  310.  
  311.  
  312.  
  313. -- part 48 (button)
  314. -- low flags: 00
  315. -- high flags: 8006
  316. -- rect: left=171 top=288 right=307 bottom=266
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 0 / 0
  319. -- text alignment: 1
  320. -- font id: 0
  321. -- text size: 12
  322. -- style flags: 0
  323. -- line height: 16
  324. -- part name: 51-100
  325. ----- HyperTalk script -----
  326. on mouseUp
  327.   if not hilite of me then
  328.     resetbtns
  329.     set hilite of me to true
  330.   end if
  331. end mouseUp
  332.  
  333.  
  334.  
  335. -- part 45 (button)
  336. -- low flags: 00
  337. -- high flags: 8006
  338. -- rect: left=171 top=306 right=325 bottom=266
  339. -- title width / last selected line: 0
  340. -- icon id / first selected line: 0 / 0
  341. -- text alignment: 1
  342. -- font id: 0
  343. -- text size: 12
  344. -- style flags: 0
  345. -- line height: 16
  346. -- part name: 101-300
  347. ----- HyperTalk script -----
  348. on mouseUp
  349.   if not hilite of me then
  350.     resetbtns
  351.     set hilite of me to true
  352.   end if
  353. end mouseUp
  354.  
  355.  
  356.  
  357. -- part 49 (button)
  358. -- low flags: 00
  359. -- high flags: 8006
  360. -- rect: left=278 top=252 right=271 bottom=373
  361. -- title width / last selected line: 0
  362. -- icon id / first selected line: 0 / 0
  363. -- text alignment: 1
  364. -- font id: 0
  365. -- text size: 12
  366. -- style flags: 0
  367. -- line height: 16
  368. -- part name: 301-500
  369. ----- HyperTalk script -----
  370. on mouseUp
  371.   if not hilite of me then
  372.     resetbtns
  373.     set hilite of me to true
  374.   end if
  375. end mouseUp
  376.  
  377.  
  378.  
  379. -- part 50 (button)
  380. -- low flags: 00
  381. -- high flags: 8006
  382. -- rect: left=278 top=270 right=289 bottom=373
  383. -- title width / last selected line: 0
  384. -- icon id / first selected line: 0 / 0
  385. -- text alignment: 1
  386. -- font id: 0
  387. -- text size: 12
  388. -- style flags: 0
  389. -- line height: 16
  390. -- part name: 501-1000
  391. ----- HyperTalk script -----
  392. on mouseUp
  393.   if not hilite of me then
  394.     resetbtns
  395.     set hilite of me to true
  396.   end if
  397. end mouseUp
  398.  
  399.  
  400.  
  401. -- part 46 (button)
  402. -- low flags: 00
  403. -- high flags: 8006
  404. -- rect: left=278 top=288 right=307 bottom=373
  405. -- title width / last selected line: 0
  406. -- icon id / first selected line: 0 / 0
  407. -- text alignment: 1
  408. -- font id: 0
  409. -- text size: 12
  410. -- style flags: 0
  411. -- line height: 16
  412. -- part name: 1001-1500
  413. ----- HyperTalk script -----
  414. on mouseUp
  415.   if not hilite of me then
  416.     resetbtns
  417.     set hilite of me to true
  418.   end if
  419. end mouseUp
  420.  
  421.  
  422.  
  423. -- part 51 (button)
  424. -- low flags: 00
  425. -- high flags: 8006
  426. -- rect: left=278 top=306 right=325 bottom=373
  427. -- title width / last selected line: 0
  428. -- icon id / first selected line: 0 / 0
  429. -- text alignment: 1
  430. -- font id: 0
  431. -- text size: 12
  432. -- style flags: 0
  433. -- line height: 16
  434. -- part name: 1501-2000
  435. ----- HyperTalk script -----
  436. on mouseUp
  437.   if not hilite of me then
  438.     resetbtns
  439.     set hilite of me to true
  440.   end if
  441. end mouseUp
  442.  
  443.  
  444.  
  445. -- part 52 (button)
  446. -- low flags: 00
  447. -- high flags: 8006
  448. -- rect: left=385 top=252 right=271 bottom=480
  449. -- title width / last selected line: 0
  450. -- icon id / first selected line: 0 / 0
  451. -- text alignment: 1
  452. -- font id: 0
  453. -- text size: 12
  454. -- style flags: 0
  455. -- line height: 16
  456. -- part name: 2001+
  457. ----- HyperTalk script -----
  458. on mouseUp
  459.   if not hilite of me then
  460.     resetbtns
  461.     set hilite of me to true
  462.   end if
  463. end mouseUp
  464.  
  465.  
  466.  
  467. -- part 56 (button)
  468. -- low flags: 00
  469. -- high flags: 8006
  470. -- rect: left=385 top=270 right=289 bottom=480
  471. -- title width / last selected line: 0
  472. -- icon id / first selected line: 0 / 0
  473. -- text alignment: 1
  474. -- font id: 0
  475. -- text size: 12
  476. -- style flags: 0
  477. -- line height: 16
  478. -- part name: Don’t Know
  479. ----- HyperTalk script -----
  480. on mouseUp
  481.   if not hilite of me then
  482.     resetbtns
  483.     set hilite of me to true
  484.   end if
  485. end mouseUp
  486.  
  487.  
  488.  
  489. -- part 61 (button)
  490. -- low flags: 80
  491. -- high flags: 0004
  492. -- rect: left=154 top=32 right=327 bottom=496
  493. -- title width / last selected line: 0
  494. -- icon id / first selected line: 0 / 0
  495. -- text alignment: 1
  496. -- font id: 0
  497. -- text size: 12
  498. -- style flags: 0
  499. -- line height: 16
  500. -- part name: hdmask
  501.  
  502.  
  503. -- part 54 (field)
  504. -- low flags: 81
  505. -- high flags: 2007
  506. -- rect: left=176 top=63 right=292 bottom=472
  507. -- title width / last selected line: 0
  508. -- icon id / first selected line: 0 / 0
  509. -- text alignment: 0
  510. -- font id: 0
  511. -- text size: 12
  512. -- style flags: 0
  513. -- line height: 16
  514. -- part name: periph
  515. ----- HyperTalk script -----
  516. on mouseUp
  517.   global gOther
  518.   get the clickLoc
  519.   get item 2 of it - (top of me)
  520.   get it + (scroll of me)
  521.   put (it div (textheight of me)) + 1 into lineNum
  522.   get line lineNum of me
  523.   put it into temp
  524.   delete first char of temp
  525.   if it = empty then exit mouseUp
  526.   lock screen
  527.   get char 1 of line lineNum of me
  528.   if it = "¬£"
  529.   then
  530.   put "‚Ñ¢" into char 1 of line lineNum of me
  531. else
  532.   put "¬£" into char 1 of line lineNum of me
  533.   if temp = "Other" then
  534.     ask "Enter peripheral name."
  535.     if it is not empty then
  536.       put " (" & it & ")" into gOther
  537.     else
  538.       put "‚Ñ¢" into char 1 of line lineNum of me
  539.     end if
  540.   end if
  541. end if
  542. --
  543. get offset("¬£",cd fld periph)
  544. if it is 0 then show cd btn 19
  545. else
  546.   hide cd btn 19
  547.   show cd btn done
  548. end if
  549. end mouseUp
  550.  
  551.  
  552.  
  553. -- part 32 (button)
  554. -- low flags: 00
  555. -- high flags: 0000
  556. -- rect: left=130 top=138 right=169 bottom=163
  557. -- title width / last selected line: 0
  558. -- icon id / first selected line: 27081 / 27081
  559. -- text alignment: 1
  560. -- font id: 0
  561. -- text size: 12
  562. -- style flags: 0
  563. -- line height: 16
  564. -- part name: groupPointer
  565.  
  566.  
  567. -- part 53 (field)
  568. -- low flags: 81
  569. -- high flags: 2007
  570. -- rect: left=176 top=63 right=292 bottom=472
  571. -- title width / last selected line: 0
  572. -- icon id / first selected line: 0 / 0
  573. -- text alignment: 0
  574. -- font id: 0
  575. -- text size: 12
  576. -- style flags: 0
  577. -- line height: 16
  578. -- part name: hdware
  579. ----- HyperTalk script -----
  580. on mouseUp
  581.   global gOther
  582.   get the clickLoc
  583.   get item 2 of it - (top of me)
  584.   get it + (scroll of me)
  585.   put (it div (textheight of me)) + 1 into lineNum
  586.   get line lineNum of me
  587.   put it into temp
  588.   delete first char of temp
  589.   if it = empty then exit mouseUp
  590.   lock screen
  591.   get char 1 of line lineNum of me
  592.   if it = "¬£"
  593.   then
  594.   put "‚Ñ¢" into char 1 of line lineNum of me
  595. else
  596.   put "¬£" into char 1 of line lineNum of me
  597.   if temp = "Other" then
  598.     ask "Enter hardware name."
  599.     if it is not empty then
  600.       put " (" & it & ")" into gOther
  601.     else
  602.       put "‚Ñ¢" into char 1 of line lineNum of me
  603.     end if
  604.   end if
  605. end if
  606. --
  607. get offset("¬£",cd fld hdware)
  608. if it is 0 then show cd btn 19
  609. else
  610.   hide cd btn 19
  611.   show cd btn done
  612. end if
  613.  
  614. end mouseUp
  615.  
  616.  
  617.  
  618. -- part 58 (button)
  619. -- low flags: 80
  620. -- high flags: A004
  621. -- rect: left=422 top=299 right=320 bottom=472
  622. -- title width / last selected line: 0
  623. -- icon id / first selected line: 0 / 0
  624. -- text alignment: 1
  625. -- font id: 0
  626. -- text size: 12
  627. -- style flags: 0
  628. -- line height: 16
  629. -- part name: Done
  630. ----- HyperTalk script -----
  631. on mouseUp
  632.   global gWhichOne,selectedName,gOther
  633.   lock screen
  634.   set cursor to watch
  635.   put "selected" & gwhichOne into thecontainer
  636.   put empty into cd fld thecontainer
  637.   repeat with i = 1 to the number of lines in cd fld gWhichOne
  638.     if first char of line i of cd fld gWhichOne is "¬£" then
  639.       put line i of cd fld gWhichOne into temp
  640.       delete first char of temp
  641.       if temp is "Other" then put gOther after temp
  642.       if number of items in cd fld thecontainer >0 then
  643.         put "," into addOn
  644.       else
  645.         put "" into addOn
  646.       end if
  647.       put addOn & temp  after cd fld thecontainer
  648.     end if
  649.   end repeat
  650.   hideShow
  651.   unlock screen
  652. end mouseUp
  653.  
  654.  
  655.  
  656. -- part 59 (button)
  657. -- low flags: 80
  658. -- high flags: A004
  659. -- rect: left=352 top=299 right=320 bottom=412
  660. -- title width / last selected line: 0
  661. -- icon id / first selected line: 0 / 0
  662. -- text alignment: 1
  663. -- font id: 0
  664. -- text size: 12
  665. -- style flags: 0
  666. -- line height: 16
  667. -- part name: Cancel
  668. ----- HyperTalk script -----
  669. on mouseUp
  670.   global gwhichOne,gOld
  671.   lock screen
  672.   set cursor to watch
  673.   put gOld into cd fld gwhichone
  674.   hideShow
  675.   unlock screen
  676. end mouseUp
  677.  
  678.  
  679.  
  680. -- part 62 (button)
  681. -- low flags: 80
  682. -- high flags: A004
  683. -- rect: left=286 top=299 right=320 bottom=341
  684. -- title width / last selected line: 0
  685. -- icon id / first selected line: 0 / 0
  686. -- text alignment: 1
  687. -- font id: 0
  688. -- text size: 12
  689. -- style flags: 0
  690. -- line height: 16
  691. -- part name: Reset
  692. ----- HyperTalk script -----
  693.  
  694. on mouseUp
  695.   global gWhichOne
  696.   lock screen
  697.   set cursor to watch
  698.   put cd fld gWhichOne into thelist
  699.   put 1 into start
  700.   repeat
  701.     get offset("¬£",char start to the number of chars in thelist of thelist)
  702.     if it is 0 then exit repeat
  703.     else put "‚Ñ¢" into char it + start - 1 of thelist
  704.     put it into start
  705.   end repeat
  706.   put thelist into cd fld gwhichone
  707.   show cd btn 19
  708.   unlock screen
  709. end mouseUp
  710.  
  711.  
  712.  
  713. -- part 64 (field)
  714. -- low flags: 81
  715. -- high flags: 0000
  716. -- rect: left=174 top=38 right=58 bottom=474
  717. -- title width / last selected line: 0
  718. -- icon id / first selected line: 0 / 0
  719. -- text alignment: 0
  720. -- font id: 3
  721. -- text size: 12
  722. -- style flags: 0
  723. -- line height: 16
  724. -- part name: instruction
  725.  
  726.  
  727. -- part 65 (field)
  728. -- low flags: 81
  729. -- high flags: 0000
  730. -- rect: left=184 top=38 right=58 bottom=484
  731. -- title width / last selected line: 0
  732. -- icon id / first selected line: 0 / 0
  733. -- text alignment: 0
  734. -- font id: 3
  735. -- text size: 12
  736. -- style flags: 0
  737. -- line height: 16
  738. -- part name: instruction2
  739.  
  740.  
  741. -- part 66 (button)
  742. -- low flags: 80
  743. -- high flags: A004
  744. -- rect: left=422 top=299 right=320 bottom=472
  745. -- title width / last selected line: 0
  746. -- icon id / first selected line: 0 / 0
  747. -- text alignment: 1
  748. -- font id: 202
  749. -- text size: 12
  750. -- style flags: 0
  751. -- line height: 16
  752. -- part name: Done
  753. ----- HyperTalk script -----
  754. on mouseUp
  755.   global gWhichOne,selectedName
  756.   lock screen
  757.   set cursor to watch
  758.   put "selected" & gwhichOne into thecontainer
  759.   put empty into cd fld thecontainer
  760.   repeat with i = 1 to the number of lines in cd fld gWhichOne
  761.     if first char of line i of cd fld gWhichOne is "¬£" then
  762.       put line i of cd fld gWhichOne into temp
  763.       delete first char of temp
  764.       if number of items in cd fld thecontainer >0 then
  765.         put "," into addOn
  766.       else
  767.         put "" into addOn
  768.       end if
  769.       put addOn & temp  after cd fld thecontainer
  770.     end if
  771.   end repeat
  772.   hideShow
  773.   unlock screen
  774. end mouseUp
  775.  
  776.  
  777.  
  778. -- part 67 (button)
  779. -- low flags: 80
  780. -- high flags: 8004
  781. -- rect: left=422 top=299 right=320 bottom=472
  782. -- title width / last selected line: 0
  783. -- icon id / first selected line: 0 / 0
  784. -- text alignment: 1
  785. -- font id: 202
  786. -- text size: 12
  787. -- style flags: 0
  788. -- line height: 16
  789. -- part name: Done
  790.  
  791.  
  792. -- part 68 (field)
  793. -- low flags: 80
  794. -- high flags: 0007
  795. -- rect: left=0 top=30 right=342 bottom=133
  796. -- title width / last selected line: 0
  797. -- icon id / first selected line: 0 / 0
  798. -- text alignment: 0
  799. -- font id: 3
  800. -- text size: 9
  801. -- style flags: 0
  802. -- line height: 12
  803. -- part name: perstor
  804.  
  805.  
  806. -- part 69 (field)
  807. -- low flags: 81
  808. -- high flags: 0007
  809. -- rect: left=71 top=30 right=342 bottom=204
  810. -- title width / last selected line: 0
  811. -- icon id / first selected line: 0 / 0
  812. -- text alignment: 0
  813. -- font id: 3
  814. -- text size: 9
  815. -- style flags: 0
  816. -- line height: 12
  817. -- part name: hdstor
  818.  
  819.  
  820. -- part contents for card part 38
  821. ----- text -----
  822. Click to indicate:
  823.  
  824. -- part contents for card part 40
  825. ----- text -----
  826. Click to indicate:
  827.  
  828. -- part contents for card part 43
  829. ----- text -----
  830. Number of Macs:
  831.  
  832. -- part contents for card part 54
  833. ----- text -----
  834. ‚Ñ¢3Com Server
  835. ‚Ñ¢AST286 Card
  836. ‚Ñ¢Abaton Scanner
  837. ‚Ñ¢Apple 5.25" PC Drive
  838. ‚Ñ¢Apple CD-ROM
  839. ‚Ñ¢Apple Tape Backup
  840. ‚Ñ¢AppleFax Modem
  841. ‚Ñ¢AppleLine
  842. ‚Ñ¢AppleScanner
  843. ‚Ñ¢Aviton Fax
  844. ‚Ñ¢BarneyScan
  845. ‚Ñ¢Bernoulli Boxes
  846. ‚Ñ¢Calcomp plotter
  847. ‚Ñ¢Canon Scanner
  848. ‚Ñ¢Color electrostatic monitor
  849. ‚Ñ¢Compugraphics 9400
  850. ‚Ñ¢Dest Scanner
  851. ‚Ñ¢E-Machine monitor
  852. ‚Ñ¢H-P LaserJet
  853. ‚Ñ¢H-P PaintJet
  854. ‚Ñ¢H-P Plotter
  855. ‚Ñ¢HI DMP 42‚Äù plotter
  856. ‚Ñ¢Howtek 35mm
  857. ‚Ñ¢Ikegami color monitor
  858. ‚Ñ¢ImageWriter
  859. ‚Ñ¢ImageWriter II
  860. ‚Ñ¢ImageWriter LQ
  861. ‚Ñ¢Ioline Plotter
  862. ‚Ñ¢LaserWriter
  863. ‚Ñ¢LaserWriter II NT
  864. ‚Ñ¢LaserWriter II NTX
  865. ‚Ñ¢LaserWriter Plus
  866. ‚Ñ¢Linotronic
  867. ‚Ñ¢MacVision
  868. ‚Ñ¢MegaScreen Displays
  869. ‚Ñ¢Microtech Scanner
  870. ‚Ñ¢Mirrus Film Recorder
  871. ‚Ñ¢NetModem
  872. ‚Ñ¢Pioneer VideoDisk
  873. ‚Ñ¢Pres. Tech. ImageMaker
  874. ‚Ñ¢Priam 300 MB HD
  875. ‚Ñ¢ProColor Film Recorder
  876. ‚Ñ¢QMS Printer
  877. ‚Ñ¢Quantel Video Graphic Paintbox
  878. ‚Ñ¢Radius monitor
  879. ‚Ñ¢RasterOps monitor
  880. ‚Ñ¢Sharp Color Scanner
  881. ‚Ñ¢Sigma LaserView monitor
  882. ‚Ñ¢Sony Color monitor
  883. ‚Ñ¢SuperMac monitor
  884. ‚Ñ¢Tektronix color printer
  885. ‚Ñ¢Thunderscan Scanner
  886. ‚Ñ¢Typesetter
  887. ‚Ñ¢Varityper VT600
  888. ‚Ñ¢View Frame
  889. ‚Ñ¢Other
  890.  
  891. -- part contents for card part 53
  892. ----- text -----
  893. ‚Ñ¢Amdahl
  894. ‚Ñ¢Apollo Workstation
  895. ‚Ñ¢Apple II
  896. ‚Ñ¢AT&T Minicomputer
  897. ‚Ñ¢CAD Workstation
  898. ‚Ñ¢Cray SuperComputer
  899. ‚Ñ¢Digital VAX
  900. ‚Ñ¢HP Minicomputer
  901. ‚Ñ¢IBM AS/400
  902. ‚Ñ¢IBM Hardware
  903. ‚Ñ¢IBM Mainframe
  904. ‚Ñ¢IBM PC
  905. ‚Ñ¢IBM System 36
  906. ‚Ñ¢Macintosh 512K
  907. ‚Ñ¢Macintosh II
  908. ‚Ñ¢Macintosh IIci
  909. ‚Ñ¢Macintosh IIcx
  910. ‚Ñ¢Macintosh IIx
  911. ‚Ñ¢Macintosh Plus
  912. ‚Ñ¢Macintosh Portable
  913. ‚Ñ¢Macintosh SE
  914. ‚Ñ¢Macintosh SE/30
  915. ‚Ñ¢Sun workstation
  916. ‚Ñ¢Tandem
  917. ‚Ñ¢Wang VS
  918. ‚Ñ¢Other
  919.  
  920. -- part contents for card part 64
  921. ----- text -----
  922. Click to indicate the appropriate peripheral(s):
  923.  
  924. -- part contents for card part 65
  925. ----- text -----
  926. Click to indicate the appropriate hardware:
  927.  
  928. -- part contents for card part 69
  929. ----- text -----
  930. ‚Ñ¢Amdahl
  931. ‚Ñ¢Apollo Workstation
  932. ‚Ñ¢Apple II
  933. ‚Ñ¢AT&T Minicomputer
  934. ‚Ñ¢CAD Workstation
  935. ‚Ñ¢Cray SuperComputer
  936. ‚Ñ¢Digital VAX
  937. ‚Ñ¢HP Minicomputer
  938. ‚Ñ¢IBM AS/400
  939. ‚Ñ¢IBM Hardware
  940. ‚Ñ¢IBM Mainframe
  941. ‚Ñ¢IBM PC
  942. ‚Ñ¢IBM System 36
  943. ‚Ñ¢Macintosh 512K
  944. ‚Ñ¢Macintosh II
  945. ‚Ñ¢Macintosh IIci
  946. ‚Ñ¢Macintosh IIcx
  947. ‚Ñ¢Macintosh IIx
  948. ‚Ñ¢Macintosh Plus
  949. ‚Ñ¢Macintosh Portable
  950. ‚Ñ¢Macintosh SE
  951. ‚Ñ¢Macintosh SE/30
  952. ‚Ñ¢Sun workstation
  953. ‚Ñ¢Tandem
  954. ‚Ñ¢Wang VS
  955. ‚Ñ¢Other
  956.  
  957. -- part contents for card part 68
  958. ----- text -----
  959. ‚Ñ¢3Com Server
  960. ‚Ñ¢AST286 Card
  961. ‚Ñ¢Abaton Scanner
  962. ‚Ñ¢Apple 5.25" PC Drive
  963. ‚Ñ¢Apple CD-ROM
  964. ‚Ñ¢Apple Tape Backup
  965. ‚Ñ¢AppleFax Modem
  966. ‚Ñ¢AppleLine
  967. ‚Ñ¢AppleScanner
  968. ‚Ñ¢Aviton Fax
  969. ‚Ñ¢BarneyScan
  970. ‚Ñ¢Bernoulli Boxes
  971. ‚Ñ¢Calcomp plotter
  972. ‚Ñ¢Canon Scanner
  973. ‚Ñ¢Color electrostatic monitor
  974. ‚Ñ¢Compugraphics 9400
  975. ‚Ñ¢Dest Scanner
  976. ‚Ñ¢E-Machine monitor
  977. ‚Ñ¢H-P LaserJet
  978. ‚Ñ¢H-P PaintJet
  979. ‚Ñ¢H-P Plotter
  980. ‚Ñ¢HI DMP 42‚Äù plotter
  981. ‚Ñ¢Howtek 35mm
  982. ‚Ñ¢Ikegami color monitor
  983. ‚Ñ¢ImageWriter
  984. ‚Ñ¢ImageWriter II
  985. ‚Ñ¢ImageWriter LQ
  986. ‚Ñ¢Ioline Plotter
  987. ‚Ñ¢LaserWriter
  988. ‚Ñ¢LaserWriter II NT
  989. ‚Ñ¢LaserWriter II NTX
  990. ‚Ñ¢LaserWriter Plus
  991. ‚Ñ¢Linotronic
  992. ‚Ñ¢MacVision
  993. ‚Ñ¢MegaScreen Displays
  994. ‚Ñ¢Microtech Scanner
  995. ‚Ñ¢Mirrus Film Recorder
  996. ‚Ñ¢NetModem
  997. ‚Ñ¢Pioneer VideoDisk
  998. ‚Ñ¢Pres. Tech. ImageMaker
  999. ‚Ñ¢Priam 300 MB HD
  1000. ‚Ñ¢ProColor Film Recorder
  1001. ‚Ñ¢QMS Printer
  1002. ‚Ñ¢Quantel Video Graphic Paintbox
  1003. ‚Ñ¢Radius monitor
  1004. ‚Ñ¢RasterOps monitor
  1005. ‚Ñ¢Sharp Color Scanner
  1006. ‚Ñ¢Sigma LaserView monitor
  1007. ‚Ñ¢Sony Color monitor
  1008. ‚Ñ¢SuperMac monitor
  1009. ‚Ñ¢Tektronix color printer
  1010. ‚Ñ¢Thunderscan Scanner
  1011. ‚Ñ¢Typesetter
  1012. ‚Ñ¢Varityper VT600
  1013. ‚Ñ¢View Frame
  1014. ‚Ñ¢Other
  1015.  
  1016. -- part contents for background part 74
  1017. ----- text -----
  1018. ‚Ä¢ Hardware
  1019. Macintosh II,Macintosh IIcx,Macintosh IIx,Macintosh Plus,Macintosh SE
  1020. ‚Ä¢ Peripherals
  1021. LaserWriter,NetModem,Radius monitor
  1022. ‚Ä¢ Number of Macs
  1023. 11-50
  1024.